home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / E-Education / (c)ed26.d64 / the boat race (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  7KB  |  200 lines

  1. 10 POKE53280,0:POKE53281,0:POKE53272,21:P=0
  2. 15 PRINT"[147][155]            WHC ENTERPRISES"
  3. 20 PRINT"[159]                                        [146]";
  4. 22 PRINT"                                        [146]";
  5. 24 PRINT"                                        [146]";
  6. 26 PRINT"                                        [146]";
  7. 28 PRINT"            THE BOAT RACE               [146]";
  8. 30 PRINT"                                        [146]";
  9. 32 PRINT"[159]                                        [146]";
  10. 34 PRINT"                                        [146]":GOSUB392:GOSUB560
  11. 36 PRINT"[154]     PRESS  SPACE BAR [146] TO CONTINUE
  12. 38 [161]R$:[139]R$[179][177][199](32)[167]38
  13. 50 [137]1000
  14. 300 [141]530:[141]394:[153]"DEF TRY AGAIN!":[141]560:[141]391:[142]
  15. 320 [153]"CONT     PRESS  SPACE BAR WAIT TO CONTINUE:":[141]560
  16. 325 [161]R$:[139]R$[179][177][199](32)[167]325
  17. 330 [142]
  18. 350 [153]"               CORRECT!                 WAIT":[141]500
  19. 355 [141]392:[153]"LOAD":[141]391:[142]
  20. 370 [153]" READ THIS CAREFULLY":[141]560:[141]560:[141]394:[142]
  21. 390 [129]T[178]1[164]600:[130]:[142]
  22. 391 [129]T[178]1[164]1000:[130]:[142]
  23. 392 [129]T[178]1[164]2000:[130]:[142]
  24. 393 [129]T[178]1[164]3000:[130]:[142]
  25. 394 [129]T[178]1[164]4000:[130]:[142]
  26. 395 [129]T[178]1[164]5000:[130]:[142]
  27. 500 [143] <YES>
  28. 505 S[178]54272:[129]E[178]S[164]S[170]28:[151]E,0:[130]
  29. 510 [151]54296,15:[151]54277,42:[151]54278,250
  30. 515 [151]54276,23:[151]54273,23:[151]54272,191
  31. 520 [129]T[178]1[164]250:[130]:[151]54276,32:[129]T[178]1[164]300:[130]
  32. 525 [151]54296,0:[142]
  33. 530 [143] <NO>
  34. 535 S[178]54272:[129]E[178]S[164]S[170]28:[151]E,0:[130]
  35. 540 [151]54296,15:[151]54277,18:[151]54278,242
  36. 545 [151]54276,33:[151]54273,4:[151]54272,48
  37. 550 [129]T[178]1[164]300:[130]:[151]54276,32:[129]T[178]1[164]400:[130]
  38. 555 [151]54296,0:[142]
  39. 560 [143] <BLIP>
  40. 565 S[178]54272:[129]E[178]S[164]S[170]28:[151]E,0:[130]
  41. 570 [151]54296,8:[151]54277,42:[151]54278,250
  42. 575 [151]54276,23:[151]54273,23:[151]54272,191
  43. 580 [129]T[178]1[164]40:[130]:[151]54276,32:[129]T[178]1[164]50:[130]
  44. 585 [151]54296,0:[142]
  45. 1000 [153]"PRINTLOAD I WANT YOU TO READ A STORY ABOUT
  46. 1010 PRINT" PEOPLE RACING BOATS ACROSS A LAKE.
  47. 1020 [153]" AFTER YOU HAVE READ THE STORY, THERE
  48. 1030 PRINT" WILL BE SOME QUESTIONS FOR YOU TO       ANSWER.
  49. 1040 [153]"CONT PRESS SPACE BAR WHEN YOU ARE READY.":[141]560
  50. 1050 [161]R$:[139]R$[179][177][199](32)[167]1050
  51. 1055 [141] 1200
  52. 1060 [137]2000
  53. 1080 [141] 1200
  54. 1085 [137]2000
  55. 1200 [153]"LOAD              THE STORY                 WAIT"
  56. 1202 [153]"OPEN LAST SATURDAY THERE WAS A BOAT RACE.
  57. 1204 PRINT" EIGHT BOATS WERE IN THE RACE.  THE
  58. 1206 [153]" BOATS HAD TO RACE ACROSS THE LAKE.
  59. 1208 PRINT" THE BOATS THAT GOT TO THE OTHER
  60. 1210 [153]" SIDE FIRST WERE THE WINNERS.
  61. 1212 PRINT" THE BOATS WERE IN A LINE.  THEY
  62. 1214 [153]" STARTED OFF WITH A GREAT ROAR.  A BIG
  63. 1216 PRINT" RED BOAT WENT FAST.  A YELLOW BOAT
  64. 1218 [153]" WENT FASTER.  THE OTHER BOATS WERE      BEHIND THEM.
  65. 1220 PRINT" THEN A FIRE STARTED IN THE RED BOAT.
  66. 1222 [153]" IT STOPPED WHILE PEOPLE TRIED TO PUT    OUT THE FIRE.
  67. 1224 GOSUB320
  68. 1226 PRINT"[147]          THE STORY - CONTINUED         [146][159]"
  69. 1228 PRINT" A WHITE BOAT WENT TOO CLOSE TO SHORE
  70. 1230 [153]" AND GOT STUCK IN THE MUD.  THE YELLOW
  71. 1232 PRINT" BOAT BUMPED INTO THE BROWN BOAT AND
  72. 1234 [153]" BOTH BOATS HAD TO STOP.
  73. 1236 PRINT" A PINK BOAT GOT TO THE OTHER SIDE
  74. 1238 [153]" FIRST.  A GREEN BOAT CAME IN SECOND.
  75. 1240 PRINT" A PURPLE BOAT CAME IN THIRD AND AN
  76. 1242 [153]" OLD ORANGE BOAT WAS THE LAST IN THE     RACE.
  77. 1244 PRINT" ALL THE BOATS THAT GOT ACROSS THE
  78. 1246 [153]" LAKE WERE WINNERS.  PEOLE ON THOSE
  79. 1248 PRINT" BOATS WON SOME MONEY."
  80. 1277 PRINT"[154]     PRESS SPACE BAR TO CONTINUE":GOSUB560
  81. 1278 GETR$:IFR$<>CHR$(32)THEN1278
  82. 1280 PRINT"[147] YOU NOW HAVE A CHOICE:
  83. 1285 [153]" PRESS  R WAIT TO REPEAT THE INSTRUCTIONS.
  84. 1290 PRINT" PRESS  B [146] FOR THE QUESTIONS
  85. 1295 [161]R$:[139]R$[179][177]"R"[175]R$[179][177]"B"[167]1295
  86. 1296 [139]R$[178]"R"[167] [140]:[137]1200
  87. 1297 [140]:[153]"LOAD":[141]392
  88. 1298 [142]
  89. 2000 [153]"OPENLOAD WHERE WAS THIS RACE?  ":[141]560
  90. 2010 [153]"PRINT (A) ... ON A PLAYGROUND
  91. 2020 PRINT" (B) ... ON A STREET
  92. 2030 [153]" (C) ... IN THE WATER
  93. 2040 PRINT" (D) ... PLEASE SHOW ME THE STORY AGAIN
  94. 2050 [161]R$:[139]R$[179][177]"A"[175]R$[179][177]"B"[175]R$[179][177]"C"[175]R$[179][177]"D"[167]2050
  95. 2060 [139]R$[178]"A"[167][153]"DEF READ CAREFULLY":[141]300:P[178]P[170]1:[137]2000
  96. 2070 [139]R$[178]"B"[167][153]"DEF WHOOPS! ":[141]300:P[178]P[170]1:[137]2000
  97. 2080 [139]R$[178]"D"[167][141]370:[141]1200:[137]2000
  98. 2090 [141]350
  99. 2100 [153]"OPENLOAD HOW MANY BOATS HAD TO STOP?PRINT":[141]560
  100. 2110 [153]" (A) ... FOUR
  101. 2120 PRINT" (B) ... THREE
  102. 2130 [153]" (C) ... EIGHT
  103. 2140 PRINT" (D) ... PLEASE SHOW ME THE STORY AGAIN
  104. 2150 [161]R$:[139]R$[179][177]"A"[175]R$[179][177]"B"[175]R$[179][177]"C"[175]R$[179][177]"D"[167]2150
  105. 2160 [139]R$[178]"B"[167][153]"DEF WHAT ABOUT THE RED BOAT?":[141]300:P[178]P[170]1:[137]2100
  106. 2170 [139]R$[178]"C"[167][153]"DEF CAN YOU COUNT?  ":[141]300:P[178]P[170]1:[137]2100
  107. 2180 [139]R$[178]"D"[167][141]370:[141]1200:[137]2100
  108. 2190 [141]350
  109. 2200 [153]"OPENLOAD WHAT HAPPENED TO THE WHITE BOAT?PRINT":[141]560
  110. 2210 [153]" (A) ... IT HAD A FIRE.
  111. 2220 PRINT" (B) ... IT CAME IN FIRST.
  112. 2230 [153]" (C) ... IT GOT STCK IN THE MUD.
  113. 2240 PRINT" (D) ... PLEASE SHOW ME THE STORY AGAIN
  114. 2250 [161]R$:[139]R$[179][177]"A"[175]R$[179][177]"B"[175]R$[179][177]"C"[175]R$[179][177]"D"[167]2250
  115. 2260 [139]R$[178]"A"[167][153]"DEF OH DEAR! ":[141]300:P[178]P[170]1:[137]2200
  116. 2270 [139]R$[178]"B"[167][153]"DEF WOW! NO SUCH LUCK! ":[141]300:P[178]P[170]1:[137]2200
  117. 2280 [139]R$[178]"D"[167][141]370:[141]1200:[137]2200
  118. 2290 [141]350
  119. 2300 [153]"OPENLOAD WHAT HAPPENED TO THE BROWN BOAT?     PRINT":[141]560
  120. 2310 [153]" (A) ... IT WENT TOO NEAR THE LAND.
  121. 2320 PRINT" (B) ... IT WAS HIT BY THE YELLOW BOAT.
  122. 2330 [153]" (C) ... IT HAD A FIRE.
  123. 2340 PRINT" (D) ... PLEASE SHOW ME THE STORY AGAIN
  124. 2350 [161]R$:[139]R$[179][177]"A"[175]R$[179][177]"B"[175]R$[179][177]"C"[175]R$[179][177]"D"[167]2350
  125. 2360 [139]R$[178]"A"[167][153]"DEF CERTAINLY NOT!":[141]300:P[178]P[170]1:[137]2300
  126. 2370 [139]R$[178]"C"[167][153]"DEF WOW!  ":[141]300:P[178]P[170]1:[137]2300
  127. 2380 [139]R$[178]"D"[167][141]370:[141]1200:[137]2300
  128. 2390 [141]350
  129. 2400 [153]"OPENLOAD WHAT DID THE WINNERS GET?  PRINT":[141]560
  130. 2410 [153]" (A) ... MONEY
  131. 2420 PRINT" (B) ... CUPS
  132. 2430 [153]" (C) ... BOATS
  133. 2440 PRINT" (D) ... PLEASE SHOW ME THE STORY AGAIN
  134. 2450 [161]R$:[139]R$[179][177]"A"[175]R$[179][177]"B"[175]R$[179][177]"C"[175]R$[179][177]"D"[167]2450
  135. 2460 [139]R$[178]"B"[167][153]"DEF TEA CUPS? HO! HO! ":[141]300:P[178]P[170]1:[137]2400
  136. 2470 [139]R$[178]"C"[167][153]"DEF REALLY?      ":[141]300:P[178]P[170]1:[137]2400
  137. 2480 [139]R$[178]"D"[167][141]370:[141]1200:[137]2400
  138. 2490 [141]350
  139. 2500 [153]"OPENLOAD WHICH BOAT WON THE RACE?PRINT":[141]560
  140. 2510 [153]" (A) ... THE YELLOW BOAT
  141. 2520 PRINT" (B) ... THE PINK BOAT
  142. 2530 [153]" (C) ... THE GREEN BOAT
  143. 2540 PRINT" (D) ... PLEASE SHOW ME THE STORY AGAIN
  144. 2550 [161]R$:[139]R$[179][177]"A"[175]R$[179][177]"B"[175]R$[179][177]"C"[175]R$[179][177]"D"[167]2550
  145. 2560 [139]R$[178]"A"[167][153]"DEF NO SUCH LUCK!   ":[141]300:P[178]P[170]1:[137]2500
  146. 2570 [139]R$[178]"C"[167][153]"DEF DING! DING! ":[141]300:P[178]P[170]1:[137]2500
  147. 2580 [139]R$[178]"D"[167][141]370:[141]1200:P[178]P[170]1:[137]2500
  148. 2590 [141]350
  149. 2600 [153]"OPENLOAD WHICH BOAT CAME IN LAST? "
  150. 2605 [153]"PRINT":[141]560
  151. 2610 [153]" (A) ... THE RED BOAT
  152. 2620 PRINT" (B) ... THE PURPLE BOAT
  153. 2630 [153]" (C) ... THE ORANGE BOAT
  154. 2640 PRINT" (D) ... PLEASE SHOW ME THE STORY AGAIN
  155. 2650 [161]R$:[139]R$[179][177]"A"[175]R$[179][177]"B"[175]R$[179][177]"C"[175]R$[179][177]"D"[167]2650
  156. 2660 [139]R$[178]"A"[167][153]"DEF NOT SO!         ":[141]300:P[178]P[170]1:[137]2600
  157. 2670 [139]R$[178]"B"[167][153]"DEF UGH! ":[141]300:P[178]P[170]1:[137]2600
  158. 2680 [139]R$[178]"D"[167][141]370:[141]1200:[137]2600
  159. 2690 [141]350
  160. 2700 [153]"OPENLOAD WHICH BOAT CAME IN THIRD?PRINT":[141]560
  161. 2710 [153]" (A) ... THE PURPLE BOAT
  162. 2720 PRINT" (B) ... THE RED BOAT
  163. 2730 [153]" (C) ... THE BLACK BOAT
  164. 2740 PRINT" (D) ... PLEASE SHOW ME THE STORY AGAIN
  165. 2750 [161]R$:[139]R$[179][177]"A"[175]R$[179][177]"B"[175]R$[179][177]"C"[175]R$[179][177]"D"[167]2750
  166. 2760 [139]R$[178]"B"[167][153]"DEF NOT LIKELY!      ":[141]300:P[178]P[170]1:[137]2700
  167. 2770 [139]R$[178]"C"[167][153]"DEF WOW! THAT'S WILD!  ":[141]300:P[178]P[170]1:[137]2700
  168. 2780 [139]R$[178]"D"[167][141]370:[141]1200:[137]2700
  169. 2790 [141]350
  170. 2800 [153]"OPENLOAD WHAT IS THE BEST NAME FOR THIS STORY?PRINT":[141]560
  171. 2810 [153]" (A) ... THE HORSE RACE
  172. 2820 PRINT" (B) ... THE BOAT RACE
  173. 2830 [153]" (C) ... A CAR RACE
  174. 2840 PRINT" (D) ... PLEASE SHOW ME THE STORY AGAIN
  175. 2850 [161]R$:[139]R$[179][177]"A"[175]R$[179][177]"B"[175]R$[179][177]"C"[175]R$[179][177]"D"[167]2850
  176. 2860 [139]R$[178]"A"[167][153]"DEF WAKE UP!        ":[141]300:P[178]P[170]1:[137]2800
  177. 2870 [139]R$[178]"C"[167][153]"DEF YOU'RE BEING SILLY!":[141]300:P[178]P[170]1:[137]2800
  178. 2880 [139]R$[178]"D"[167][141]370:[141]1200:[137]2800
  179. 2890 [141]350
  180. 3000 [153]"LOAD              SCORE BOARD               WAIT":[141]391
  181. 3005 [139] P[178]0 [167] [153]"SYS              EXCELLENT!!!!             WAIT"
  182. 3010 [139] P[178]0[167] [141]500:[141]500:[141]393:[137]3045
  183. 3015 [139] P[178]1 [167] [153]"CONT       YOU MADE JUST ONE BLOOPER.":[141]392
  184. 3020 [139] P[178]1 [167] [153]"              GOOD WORK! WAIT"
  185. 3025 [139] P[178]1 [167] [141]500:[141]393:[137] 3045
  186. 3030 [153]"DEF       YOU HAVE MADE"P"BLOOPERS.":[141]530:[141]530:[141]392
  187. 3035 [153]"    YOU SHOULD REPEAT THIS GAME AND ":[141]560
  188. 3040 [153]"    TRY TO GET A BETTER SCORE.":[141]393
  189. 3045 [153]"OPEN                                        WAIT"
  190. 3050 [153]" YOU NOW HAVE A CHOICE:":[141]560
  191. 3055 [153]" PRESS  R WAIT TO REPEAT THIS STORY
  192. 3060 PRINT" PRESS  M [146] TO RETURN TO THE DISK MENU
  193. 3065 [161]R$:[139]R$[179][177]"R"[175]R$[179][177]"M"[167] 3065
  194. 3070 [139]R$[178]"R"[167] [140]:[137]1000
  195. 3075 [153]"LOAD RETURNING TO THE DISK MENU
  196. 3080 LOAD"MENU",8
  197. 3085 RUN
  198. 3090 END
  199. 4000 REM WHC 92 06 08
  200.